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double GPortfolioHanager : :BSB 
^ double total, totalFised. alloc, 



total • he: 
totalFixed 



(double he, int nModelPort folio, int yearlndox) 



he • 0.7; 

GetTotalAsset( total. totalFixed. year Index): 



double bb=m vPort£olios[PORTF_CDTCW]->GetBalance()+tt,vPort£olios[PORTF C POSTTAX„401K3->GetBalan«^^^^^^^ 
if client has nothing in 401k portfolio we give him maximum of $le-6 and le-g»total .-M 



// to have something to choose model portfolio 
if(bb<1.0) , ^ 

bb +- ica_max(lB-3, total»le-9); 

total+- bb; 

double ratio » mj5¥tm->m^dAllocationToFixedIncome; 
if (m_nPort£Index>0 && yearlndex"0) 



ratio 
if 



if 



io = (totalFixed+bb»m_pUtm->m^FixedToTotalRatio[nModelPort£olio-m„nFirstH^^ 
(nModelPort£olio«=m_nFirstModel-l+a_pWtm->m_wtin->in_nHumberOfModelPortfolios-l) 
ratio = i ca_jnin ( ra t i p. m_pWtm->m„dAliocationToFixed Income); 
(nModelPortfolio==in_nFirstModel-l) ^ 
ratio " ica_max(ratio.m_pWtifi->ift_dAllocationToFixedIncome); 
m_pWtm->m dAllocationToFixedlncome = ratio: 



alloc - (ratio»total - totalFixed) / 

alloc = ica_max(alloc, 0.0); 

alloc = ica_min(allcx:, 1.0); 

return alloc: 



bb; 
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The function, CalcAlloc, shown below calculates the asset allocation of the "advice" 
accounts (401k pre- and post-tax accounts) in a certain year based on how much 
Human Capital the investor has in relation to the overall assets. 

double GPortfolioManager::CalcAlloc(double he, int nModelPortfolio, int yearlndex) 
{ 

double total, totalFixed, alloc; 
total = he; 

totalFixed = he * 0.7; 

GetTotalAsset(total, totalFixed, yearlndex); 

double bb=m^vPortfolios[PORTF_,CDTCW]- 
>GetBalance()+m^vPortfolios[PORTF_C^POSTTAX_401K]->GetBalance(); 
// if client has nothing in 401k portfolio we give him maximum of $le-6 and le-9* total 
// to have something to choose model portfolio 

if(bb<1.0) 

bb += ica_max(le-3, total* le-9); 

total+= bb; 



double ratio = m_pWtm->m_dAllocationToFixedIncome; 
if(m_nPortfIndex>0 && yearlndex=0) 

{ 

ratio = (totalFixed+bb*m_pWtm- 
>m_FixedToTotalRatio[nModelPortfolio-m_nFirstModel+l])/total; 

if (nModelPortfolio=m_nFirstModel- 1 +m j) Wtm->m_wtin- 
>in_nNumberOfModelPortfolios- 1 ) 

ratio = ica_min(ratio,m_pWtm->m_dAllocationToFixedIncome); 
if (nModelPortfolio==m_nFirstModel- 1 ) 

ratio = ica_max(ratio,m_pWtm->m_dAllocationToFixedIncome); 
m j)Wtm->mdAllocationToFixedIncome = ratio; 

} 

alloc = (ratio*total - totalFixed) / bb; 
alloc = ica_max(alloc, 0.0); 
alloc = ica_min(alloc, 1.0); 

return alloc; 

} 



